home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / debconf-communicate < prev    next >
Encoding:
Text File  |  2009-10-02  |  608 b   |  35 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5.  
  6. use strict;
  7. use Debconf::Db;
  8. use Debconf::AutoSelect qw(:all);
  9. use Debconf::Config;
  10. use Debconf::Gettext;
  11.  
  12. Debconf::Db->load;
  13.  
  14. Debconf::Config->getopt(gettext("Usage: debconf-communicate [options] [package]"));
  15.  
  16. my $frontend=make_frontend();
  17. my $confmodule=make_confmodule();
  18. $confmodule->owner(shift) if @ARGV;
  19. my $code=127;
  20. autoflush STDOUT 1;
  21.  
  22. while (<>) {
  23.     chomp;
  24.     my $ret=$confmodule->process_command($_);
  25.     ($code, undef)=split(/ /, $ret, 2);
  26.     print "$ret\n";
  27. }
  28.  
  29. $frontend->shutdown;
  30. $confmodule->finish;
  31. Debconf::Db->save;
  32. exit $code;
  33.  
  34.  
  35.